Tugas 2.3 aplikasi perhitungan gajih tampa menggunakan keypress

Tugas 2.3 aplikasi perhitungan gajih tampa menggunakan keypress 

Source kode :

Private Sub cmdhitung_Click()

txtgajihk = Val(txtpokok) + Val(txttunjangan) - Val(txtpotongan)

txtpajak = Val(txtgajihk) * 0.1

txtgadi = Val(txtgajihk) - Val(txtpajak)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtpokok = ""

txttunjangan = ""

txtpotongan = ""

txtgajihk = ""

txtpajak = ""

txtgadi = ""

txtpokok.SetFocus

End Sub